home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / shazam.exe / INPUT2.VIR < prev    next >
Encoding:
Text File  |  1992-09-01  |  792 b   |  26 lines
  1.    {|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  2.  
  3.    INIT
  4.  
  5.    |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
  6. procedure TGenericApp.PostInit ;
  7. {$IFDEF code}{$I input.src}{$ENDIF}
  8. var
  9.    D                         : PDialog ;
  10.    R                         : TRect ;
  11. begin
  12.    FillChar ( DataArray , SizeOf ( DataArray ) , #0 ) ;
  13.    D                         := New ( PForm , Init ( R , '' ) ) ;
  14. {$IFDEF code}
  15.    CopyDialog ( MakeDialog ,
  16.                 D ) ;
  17. {$ELSE}
  18.    CopyDialog ( PDIALOG ( RezFile^.Get ( 'DIALOG_INPUT' ) ) ,
  19.                 D ) ;
  20. {$ENDIF}
  21.    SetStaticText ( D , FALSE ) ;
  22.    SetBorder ( CRT.Blue ) ;
  23.    Desktop^.Insert ( D ) ;
  24.    ForceEvent ( evCommand , cmFirst ) ;               { to show Rec # }
  25. end ;
  26.